home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-12-13 | 3.4 KB | 150 lines | [TEXT/ttxt] |
- --<<<-
- module ScorePlayer
- uses ScriptX
-
- exports ScorePlayer
- exports instance variables
- TwoDSpriteCache,
- TextSpriteCache,
- score,
- stage,
- scoreTicker,
- castList,
- loopAction,
- brushCache
-
- exports
- frameGetter,
- frameSetter,
- durationGetter,
- loopingSetter,
- loopingGetter
-
- exports ScoreTicker
-
- exports Score
- exports instance variables
- stage,
- audioPlayers,
- scorePlayer,
- transitionPlayer
-
-
- exports TextSprite
- exports
- matteColorGetter,
- matteColorSetter,
- invisibleColorGetter,
- invisibleColorSetter
-
- exports TwoDSprite
- exports
- matteColorGetter,
- matteColorSetter,
- invisibleColorGetter,
- invisibleColorSetter
-
- exports VideoSprite
- exports
- matteColorGetter,
- matteColorSetter,
- invisibleColorGetter,
- invisibleColorSetter
-
-
- exports SpriteChannelInfo
- exports instance variables
- channelNumber,
- inkMode,
- matteColor,
- invisibleColor
-
- exports ChangeInkAction
- exports instance variables
- inkMode
-
- exports ChangeSpriteSizeAction
- exports instance variables
- width,
- height
-
- exports ChangeSoundAction
- exports instance variables
- mediaStream,
- audioPlayerIndex
-
- exports ChangeSpriteAppearanceAction
- exports instance variables
- target
-
- exports ChangeTempoAction
-
- exports AddSpriteToStageAction
- exports instance variables
- target
-
- exports RemoveSpriteFromStageAction
- exports Sprite
- exports WaitForSoundAction
- exports instance variables
- channelNumber
-
- exports PrepareTransitionAction
- exports instance variables
- transitionClass,
- duration,
- direction,
- scale
-
- exports ScorePlayerStartTransition
-
- exports LoopAction
- exports instance variables
- looping
-
- end
- module SPBuilder
- uses ScriptX, ScorePlayer
- end
- in module SPBuilder
- global scorplaytc
- (
- local sourceDir := spawn theStartDir "utils/dtk/source/dirimp_sx"
- local scorePlayerModule := getModule @ScorePlayer
-
- fileIn sourceDir name:"chaninfo.sx" module:scorePlayerModule
- fileIn sourceDir name:"sprite.sx" module:scorePlayerModule
- fileIn sourceDir name:"dirtextp.sx" module:scorePlayerModule
- fileIn sourceDir name:"dirtwods.sx" module:scorePlayerModule
- fileIn sourceDir name:"vidsprt.sx" module:scorePlayerModule
-
- fileIn sourceDir name:"loopact.sx" module:scorePlayerModule
-
- fileIn sourceDir name:"scortick.sx" module:scorePlayerModule
- fileIn sourceDir name:"score.sx" module:scorePlayerModule
- fileIn sourceDir name:"scoreplr.sx" module:scorePlayerModule
-
- fileIn sourceDir name:"wait4snd.sx" module:scorePlayerModule
- fileIn sourceDir name:"chngink.sx" module:scorePlayerModule
- fileIn sourceDir name:"chngsprt.sx" module:scorePlayerModule
- fileIn sourceDir name:"chngsize.sx" module:scorePlayerModule
- fileIn sourceDir name:"chngsnd.sx" module:scorePlayerModule
- fileIn sourceDir name:"chngtmpo.sx" module:scorePlayerModule
- fileIn sourceDir name:"sprtappr.sx" module:scorePlayerModule
- fileIn sourceDir name:"sprtdis.sx" module:scorePlayerModule
- fileIn sourceDir name:"transtion.sx" module:scorePlayerModule
-
- scorplaytc := new LibraryContainer path:"utils/dtk/dirimp/scorplay.sxl" name:"ScorePlayer"
- append scorplaytc scorePlayerModule
-
- -- We need preStartupAction because of a bug in LibraryContainer where
- -- 'used' libraries don't get their startupAction called.
-
- scorplaytc.prestartUpAction := (scorplaytc -> forEach scorplaytc load undefined)
- close scorplaytc
- )
-
- in module Scratch
-
- -->>>
-